﻿Public Class AnimationInfoPfeil
    Inherits ObjektAnimation
    ''' <summary>
    ''' Erstellt einen Laufpfeil am angegeben Feld
    ''' </summary>
    ''' <param name="neuBild"></param>
    ''' <param name="Sound"></param>
    ''' <param name="X"></param>
    ''' <param name="Y"></param>
    ''' <remarks></remarks>
    Public Sub New(ByVal neuBild As String, ByVal Sound As String, ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        FM = False
        Frames = 4
        BildID = LoadTextur(neuBild, 0, "Pfeile")
        InFeldern = False
        P = New Point(X * Hauptmenü.Feldbreite + Texturen(BildID).EinzelbildGröße.Width / 2, Y * Hauptmenü.Feldbreite)
        If Musikspielen = True Then
            If My.Computer.FileSystem.FileExists(My.Settings.Resourcenpfad + "Sound\" + Sound + ".wav") Then
                MusikEngine.LoadWav(My.Settings.Resourcenpfad + "Sound\" + Sound + ".wav", False)
            End If
        End If
    End Sub
End Class
